home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 2 / Gekikoh Dennoh Club Vol. 2 (Japan).7z / Gekikoh Dennoh Club Vol. 2 (Japan) (Track 01).bin / games / rosa2 / src / spload.s < prev    next >
Text File  |  1997-09-27  |  2KB  |  66 lines
  1. .include    doscall.mac
  2. .include    iocscall.mac
  3.  
  4. *    補足：かなり、昔に作成したゲームから転がした処理なので
  5. *    無駄な事を、随分やっています。
  6.  
  7. *    コメントをマメに入れてるのは、当時アセンブラを勉強
  8. *    しながら作成した為です。（当時、ソースに全角文字が有るのが、いやでした）
  9.  
  10. *    最適化しようと思いましたが、出来ませんでした。（時間不足）
  11.  
  12. *    subtract してから bne でループしているのは、dbraという命令を知らなかった
  13. *    からです。
  14.  
  15.  
  16. IOCS                    equ        $0F
  17.  
  18. .text
  19. .even
  20.  
  21.     move.l        #_CRTMOD,d0                    * ｸﾞﾗﾌｨｯｸ ﾓｰﾄﾞ 256 * 256 
  22.     move.w        #6,d1                        * 256 * 256 Mode
  23.     trap        #IOCS
  24.     move.l        #_B_SUPER,d0                * ﾕｰｻﾞｰ  -->  ｽｰﾊﾟｰ  ﾓｰﾄﾞ
  25.     move.l        #0,d1
  26.     movea.l        d1,a1
  27.     trap        #IOCS
  28.     move.l        d0,-(sp)                    * ssp ﾎｿﾞﾝ
  29.  
  30.     IOCS        _SP_INIT
  31.  
  32. sp_load:
  33.     tst            (Set_Counter)                * ｽﾌﾟﾗｲﾄ ﾉ ｾｯﾄ ｹﾝｽｳ ﾉ 0 ｹﾝ ﾁｪｯｸ
  34.     beq            pl_load                        * 0 ﾉ ﾄｷ ﾆ ﾊ pl_load ﾍ ﾌﾞﾗﾝﾁ
  35. sp_load_main:
  36.     lea            Sprite_Data_Area,a1            * A1 ﾚｼﾞｽﾀ = ｽﾌﾟﾗｲﾄ ﾃﾞｰﾀ ｱﾄﾞﾚｽ
  37.     lea            Set_Pattern_No,a2            * A2 ﾚｼﾞｽﾀ = ｾｯﾄ ﾃﾞｰﾀ ｱﾄﾞﾚｽ
  38. sp_load_loop_1:
  39.     movea.l        #$EB8000,a0                    * A0 ﾚｼﾞｽﾀ = PCG ｴﾘｱ ｱﾄﾞﾚｽ
  40.     move        (a2)+,d0                    * D0 ﾚｼﾞｽﾀ = ｾｯﾄ ｶｼｮ
  41.     mulu        #128,d0                        * D0 = D0 * 128
  42.     add.l        d0,a0                        * A0 = A0 + D1 ( PCG ｶｸﾉｳ ｱﾄﾞﾚｽ )
  43.     move.w        #64,d0                        * D0 ﾚｼﾞｽﾀ = ﾃﾞｰﾀ ｾｯﾄ ｹﾝｽｳ
  44. *    ext.w        d0                            * D0 ﾚｼﾞｽﾀ ｦ ﾌｺﾞｳ ｶｸﾁｮｳ（何故？）
  45. sp_load_loop_2:
  46.     move.w        (a1)+,(a0)+                    * ﾃﾞｰﾀ ｶｸﾉｳ ( ｱﾄﾞﾚｽ ﾊ  ﾎﾟｽﾄ ｲﾝｸﾘﾒﾝﾄ )
  47.     sub            #1,d0
  48.     bne            sp_load_loop_2                * D0 ﾚｼﾞｽﾀ ﾉ ｶｲｽｳ ﾌﾞﾝ sp_load_loop_2 ｦ ﾙｰﾌﾟ
  49.     sub            #1,(Set_Counter)
  50.     bne            sp_load_loop_1                * Set_Counter ﾉ ｶｲｽｳ ﾌﾞﾝ sp_load_loop_1 ｦ ﾙｰﾌﾟ
  51. pl_load:
  52.     movea.l        #$E82200,a0                    * A0 ﾚｼﾞｽﾀ = ﾊﾟﾚｯﾄ ｱﾄﾞﾚｽ
  53.     lea            Palet_Area,a1                * A1 ﾚｼﾞｽﾀ = ﾊﾟﾚｯﾄ ﾃﾞｰﾀ ｶｸﾉｳ ｱﾄﾞﾚｽ
  54.     move.w        #256,d0
  55. pl_load_loop:
  56.     move        (a1)+,(a0)+                    * ﾊﾟﾚｯﾄ ｶﾗｰ ｺｰﾄﾞ ﾃﾝｿｳ
  57.     sub            #1,d0
  58.     bne            pl_load_loop
  59.     move.l        #_B_SUPER,d0                * ｽｰﾊﾟｰ  ｰｰ>  ﾕｰｻﾞｰ ﾓｰﾄﾞ
  60.     move.l        (sp)+,d1
  61.     movea.l        d1,a1
  62.     trap        #IOCS
  63.     dc.w        _EXIT
  64.  
  65. .include rosa.sp
  66.